home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / CodePatterns / Pattern6.mod < prev    next >
Encoding:
Text File  |  1995-10-30  |  243 b   |  19 lines  |  [TEXT/MPS ]
  1. MODULE Pattern6;
  2.  
  3.   PROCEDURE P;
  4.     VAR
  5.       i: INTEGER;
  6.       a: ARRAY 10 OF INTEGER;
  7.   BEGIN
  8.     i:=0;
  9.     WHILE i<10 DO
  10.       INC(i)
  11.     END;
  12.     REPEAT
  13.       DEC(i)
  14.     UNTIL i=0;
  15.     FOR i:=0 TO 9 DO a[i]:=i END
  16.   END P;
  17.  
  18. END Pattern6.
  19.